' BASIC Anywhere Machine program by Charlie Veniot
' mod of redmarv.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.25 at 01.27
' Nineliner by red_Marvin:
' green boxes!
' runs smooth on a P90
' color number = 65536 * blue + 256 * green + red
'—ENJOY!—
'
1 RANDOMIZE TIMER
2 SCREEN 13
3 PALETTE n, _bgr(0,200 + int(rnd*56),0)
4 PALETTE 63 - n,  _bgr(0,150 - int(rnd*56),0)
5 IF n = 32 THEN x = INT(RND * 32) * 10 ELSE n = n + 1
6 IF n < 32 THEN GOTO 3 ELSE y = INT(RND * 20) * 10
_delay 0.000125
7 c = POINT(x, y)
8 IF c <= 0 THEN LINE (x, y)-(x + 9, y + 9), 63, B ELSE LINE (x, y)-(x + 9, y + 9), c - 1, B
9 IF INKEY$ = "" THEN GOTO 5